home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 13 / Developer Source Volume 13 (I-MODE Publications, Inc.)(1999).iso / ORINF / SEP96 / GREEF105.GIF

< prev

next >

Graphics Interchange Format  |  1998-02-10  |  13KB  |  640x454  |  4-bit (14 colors)

Labels: text | electronics | screenshot | display | software | number | font | web page | computer icon | website
OCR: 43 Oracle Power Objects - [frmOrders.InitializeWindow] 5 X File Edit Object View Run Window Help __ 6 X Sub InitializeWindowO Declare variables to hold menu bar and menu objects DIM mbrOrdersForm AS Object DIM mnuOrder AS Object 'Create the menu bar object and initialize it with the system default and application default menus mbrOrdersForm = NEW MenuBar frmOrders. DefaultMenuBar (mbrOrdersForm) mnuOrder = NEW menu ' Create custom menu muOrder. Label = "&Order" Add label to menu 'Add items to menu, including separator lines and keyboard equivalents muOrder . AppendMenuItem (" &New Order", Cmd_NewOrder, 0, "AN") muOrder. AppendMenuItem (" &Delete Order", Cmd_DeleteOrder, 0, NULL) mnuOrder. AppendMenuItem ("-", NULL, NULL, NULL) mnuOrder. AppendMenuItem (" &Add Order Item. . . ", Cmd_AddOrderItem, 0, "AA") mnuOrder. AppendMenuItem (" &Modify Order Item. . . ", Cmd_ModifyOrderItem, 0, "AM") muOrder . AppendMenuItem ("De&lete Order Item", Cmd_DeleteOrderItem, 0, NULL) mbrOrdersForm. AppendMenu (mnuOrder) 'Append menu to menu bar Bring selected items all the way to the front NUMLK

---